home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / ilfsf19.el < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.6 KB  |  69 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilfsf19.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.7
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995 Marco Antoniotti and Rick Busdiecker
  11. ;;;
  12. ;;; Other authors' names for which this Copyright notice also holds
  13. ;;; may appear later in this file.
  14. ;;;
  15. ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
  16. ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
  17. ;;; mailing list were bugs and improvements are discussed.
  18. ;;;
  19. ;;; ILISP is freely redistributable under the terms found in the file
  20. ;;; COPYING.
  21.  
  22.  
  23. ;;;============================================================================
  24. ;;; Functions
  25.  
  26. (defun ilisp-get-input-ring ()
  27.   "Use instead of get-input-ring coming-input-ring or input-ring."
  28.   comint-input-ring)
  29.  
  30.  
  31. (defun ilisp-ring-insert (ring input)
  32.   (ring-insert ring input))
  33.  
  34.  
  35. (defun ilisp-temp-buffer-show-function-symbol ()
  36.   'temp-buffer-show-function)
  37.  
  38.  
  39. (defun set-ilisp-temp-buffer-show-function (val)
  40.   (setq temp-buffer-show-function val))
  41.  
  42.  
  43. (defun ilisp-temp-buffer-show-function ()
  44.   temp-buffer-show-function)
  45.  
  46.  
  47. (defun ilisp-input-ring-index ()
  48.   comint-input-ring-index)
  49.  
  50.  
  51. (defun set-ilisp-input-ring-index (n)
  52.   (setq comint-input-ring-index n))
  53.  
  54.  
  55. (defun ilisp-input-ring-size ()
  56.   comint-input-ring-size)
  57.  
  58.  
  59. (defun set-ilisp-input-ring-size (n)
  60.   (setq comint-input-ring-size n))
  61.  
  62.  
  63. ;;;============================================================================
  64. ;;; Epilogue
  65.  
  66. (provide 'compat-fsf-19)
  67.  
  68. ;;; end of file -- fsf19.el --
  69.